\catcode`?=\active \def\answer{\def\a##1{{\global\let##1?\aftergroup##1}}\escapechar`H\lccode`!`? \lowercase{\expandafter\a\csname ow did this happen!\endcsname}} \answer